home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / test / lib / in.a < prev    next >
Text File  |  1992-11-23  |  654b  |  57 lines
  1.     section text,code
  2.     xdef    _buf
  3.     section __MERGED,bss
  4.     ds.w    0
  5. _buf    ds.b    256
  6.     section text,code
  7.     ds.l 0
  8.     xdef    _main
  9.     procstart
  10. _main:
  11.     movem.l    l7,-(sp)
  12.     link    A5,#-l4
  13.     moveq.l    #$01,D2
  14.     bra    l9
  15. l1
  16.     move.w    D2,D0
  17.     ext.l    D0
  18.     asl.l    #$02,D0
  19.     move.l    l6+4(A5),A0
  20.     add.l    D0,A0
  21.     move.l    (A0),-(sp)
  22.     jsr    _puts
  23.     addq.l    #4,sp
  24. l2
  25.     addq.w    #$01,D2
  26. l9
  27.     move.w    D2,D0
  28.     ext.l    D0
  29.     cmp.l    l6+0(A5),D0
  30.     blt    l1
  31. l10
  32. l3
  33.     pea.l    l8
  34.     jsr    _puts
  35.     addq.l    #4,sp
  36.     pea.l    _buf
  37.     jsr    _gets
  38.     addq.l    #4,sp
  39.     pea.l    _buf
  40.     jsr    _puts
  41.     addq.l    #4,sp
  42. l5
  43.     unlk    A5
  44.     move.l    (sp)+,D2
  45.     rts
  46. l7    reg    D2
  47. l4    equ    0
  48. l6    equ    12
  49.     procend
  50.     xref    _gets
  51.     xref    _puts
  52.     section data,data
  53. l8
  54.  
  55.     dc.b    $69,$6E,$70,$75,$74,$3A,$00
  56.     END
  57.